library(plotly)
df <- read.csv("meninas.csv", stringsAsFactors=FALSE, sep=",")
df_bin <- read.csv("make_binary/meninasbin.csv", stringsAsFactors=FALSE, sep=";")
str(df)
'data.frame':   789 obs. of  18 variables:
 $ ID.Aluno                        : int  100060 100383 100955 101542 101565 101584 101585 101661 101709 102060 ...
 $ Sexo                            : logi  FALSE FALSE FALSE FALSE FALSE FALSE ...
 $ Data.de.Nascimento              : chr  "1983-12-31 00:00:00.000" "1977-08-24 00:00:00.000" "1985-09-23 00:00:00.000" "1986-10-23 00:00:00.000" ...
 $ UF.birth                        : chr  "DF" "RN" "DF" "RJ" ...
 $ Quota                           : chr  "Não" "Não" "Não" "Não" ...
 $ School.type                     : chr  "Não Informada" "Não Informada" "Não Informada" "Não Informada" ...
 $ Race                            : chr  "Não informado" "Não informado" "Não informado" "Branca                        " ...
 $ Course                          : chr  "Computer Science" "Computer Science" "Computer Licentiate" "Mechatronics Engineering" ...
 $ Option                          : chr  "Computer Science" "Computer Science" "Computer Licentiate" "Mechatronics Engineering" ...
 $ Entrance.UnB.period             : int  20032 20032 20041 20041 20041 20041 20041 20041 20041 20041 ...
 $ Entrance.option.period          : int  20032 20032 20041 20041 20041 20041 20041 20041 20041 20041 ...
 $ Entrance.option.form            : chr  "Vestibular                    " "Transferencia Obrigat�ria     " "Programa de Avaliação Seriada " "Programa de Avaliação Seriada " ...
 $ Leaving.option.period           : int  20081 20042 20082 20061 20081 20062 20082 20101 20081 20101 ...
 $ Leaving.option.form             : chr  "Graduated" "Drop out" "Graduated" "Drop out" ...
 $ Min.Graduation.Credits          : int  240 240 180 274 274 244 240 240 240 244 ...
 $ Total.Credits                   : int  240 6 168 68 151 272 238 236 180 130 ...
 $ Paid.in.credits                 : int  240 6 180 70 165 144 240 240 186 134 ...
 $ Créditos.a.integralizar.no.total: int  0 234 0 204 109 100 0 0 54 110 ...
str(df[, 4:14])
'data.frame':   789 obs. of  11 variables:
 $ UF.birth              : chr  "DF" "RN" "DF" "RJ" ...
 $ Quota                 : chr  "Não" "Não" "Não" "Não" ...
 $ School.type           : chr  "Não Informada" "Não Informada" "Não Informada" "Não Informada" ...
 $ Race                  : chr  "Não informado" "Não informado" "Não informado" "Branca                        " ...
 $ Course                : chr  "Computer Science" "Computer Science" "Computer Licentiate" "Mechatronics Engineering" ...
 $ Option                : chr  "Computer Science" "Computer Science" "Computer Licentiate" "Mechatronics Engineering" ...
 $ Entrance.UnB.period   : int  20032 20032 20041 20041 20041 20041 20041 20041 20041 20041 ...
 $ Entrance.option.period: int  20032 20032 20041 20041 20041 20041 20041 20041 20041 20041 ...
 $ Entrance.option.form  : chr  "Vestibular                    " "Transferencia Obrigat�ria     " "Programa de Avaliação Seriada " "Programa de Avaliação Seriada " ...
 $ Leaving.option.period : int  20081 20042 20082 20061 20081 20062 20082 20101 20081 20101 ...
 $ Leaving.option.form   : chr  "Graduated" "Drop out" "Graduated" "Drop out" ...
library(cdparcoord)
df_aux = df %>%
  select(Course, Option, Min.Graduation.Credits, UF.birth)
df_aux <- makeFactor(df_aux,c('Min.Graduation.Credits'))
#df_aux <- makeFactor(df_aux,c('Período.de.saída.da.opção','Periodo.de.Ingresso.na.Unb','Periodo.de.ingresso.na.opção'))
#pe25disc <- discretize(df_aux,nlevels=5)  
discparcoord(df_aux,k=1000)
library(cdparcoord)
df_aux = df %>%
  select(Leaving.option.period, Leaving.option.form)
  #filter((Leaving.option.period >= 19920 & Leaving.option.period < 19951) | (Leaving.option.period > 20010 & Leaving.option.period < 20161))
df_aux <- makeFactor(df_aux,c('Leaving.option.period'))
#df_aux <- makeFactor(df_aux,c('Período.de.saída.da.opção','Periodo.de.Ingresso.na.Unb','Periodo.de.ingresso.na.opção'))
#pe25disc <- discretize(df_aux,nlevels=5)  
discparcoord(df_aux,k=1000)
library(cdparcoord)
df_aux = df %>%
  select(Leaving.option.period, Leaving.option.form, Entrance.UnB.period, Entrance.option.period)
df_aux <- makeFactor(df_aux,c('Leaving.option.period', 'Entrance.UnB.period', 'Entrance.option.period'))
#df_aux <- makeFactor(df_aux,c('Período.de.saída.da.opção','Entrance.UnB.period','Entrance.option.period'))
#pe25disc <- discretize(df_aux,nlevels=5)  
discparcoord(df_aux,k=1000)
library(cdparcoord)
df_aux = df %>%
  select(School.type, Entrance.option.period, Quota, Race)
df_aux <- makeFactor(df_aux,c('Entrance.option.period'))
#pe25disc <- discretize(df_aux,nlevels=5)  
discparcoord(df_aux,k=1000)
library(cdparcoord)
df_aux = df %>%
  select(Entrance.option.form, Total.Credits, Paid.in.credits)
#df_aux <- makeFactor(df_aux,c('Créditos.integralizados.no.total', 'Créditos.cursados.no.total'))
#pe25disc <- discretize(df_aux,nlevels=5)  
discparcoord(df_aux,k=1000)
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKYGBge3J9CmxpYnJhcnkocGxvdGx5KQoKZGYgPC0gcmVhZC5jc3YoIm1lbmluYXMuY3N2Iiwgc3RyaW5nc0FzRmFjdG9ycz1GQUxTRSwgc2VwPSIsIikKZGZfYmluIDwtIHJlYWQuY3N2KCJtYWtlX2JpbmFyeS9tZW5pbmFzYmluLmNzdiIsIHN0cmluZ3NBc0ZhY3RvcnM9RkFMU0UsIHNlcD0iOyIpCmBgYAoKYGBge3J9CnN0cihkZikKYGBgCgpgYGB7cn0KbGlicmFyeShjZHBhcmNvb3JkKQpkZl9hdXggPSBkZiAlPiUKICBzZWxlY3QoQ291cnNlLCBPcHRpb24sIE1pbi5HcmFkdWF0aW9uLkNyZWRpdHMsIFVGLmJpcnRoKQpkZl9hdXggPC0gbWFrZUZhY3RvcihkZl9hdXgsYygnTWluLkdyYWR1YXRpb24uQ3JlZGl0cycpKQojZGZfYXV4IDwtIG1ha2VGYWN0b3IoZGZfYXV4LGMoJ1BlcsOtb2RvLmRlLnNhw61kYS5kYS5vcMOnw6NvJywnUGVyaW9kby5kZS5JbmdyZXNzby5uYS5VbmInLCdQZXJpb2RvLmRlLmluZ3Jlc3NvLm5hLm9ww6fDo28nKSkKI3BlMjVkaXNjIDwtIGRpc2NyZXRpemUoZGZfYXV4LG5sZXZlbHM9NSkgIApkaXNjcGFyY29vcmQoZGZfYXV4LGs9MTAwMCkKYGBgCgoKYGBge3J9CmxpYnJhcnkoY2RwYXJjb29yZCkKZGZfYXV4ID0gZGYgJT4lCiAgc2VsZWN0KExlYXZpbmcub3B0aW9uLnBlcmlvZCwgTGVhdmluZy5vcHRpb24uZm9ybSkKICAjZmlsdGVyKChMZWF2aW5nLm9wdGlvbi5wZXJpb2QgPj0gMTk5MjAgJiBMZWF2aW5nLm9wdGlvbi5wZXJpb2QgPCAxOTk1MSkgfCAoTGVhdmluZy5vcHRpb24ucGVyaW9kID4gMjAwMTAgJiBMZWF2aW5nLm9wdGlvbi5wZXJpb2QgPCAyMDE2MSkpCmRmX2F1eCA8LSBtYWtlRmFjdG9yKGRmX2F1eCxjKCdMZWF2aW5nLm9wdGlvbi5wZXJpb2QnKSkKI2RmX2F1eCA8LSBtYWtlRmFjdG9yKGRmX2F1eCxjKCdQZXLDrW9kby5kZS5zYcOtZGEuZGEub3DDp8OjbycsJ1BlcmlvZG8uZGUuSW5ncmVzc28ubmEuVW5iJywnUGVyaW9kby5kZS5pbmdyZXNzby5uYS5vcMOnw6NvJykpCiNwZTI1ZGlzYyA8LSBkaXNjcmV0aXplKGRmX2F1eCxubGV2ZWxzPTUpICAKZGlzY3BhcmNvb3JkKGRmX2F1eCxrPTEwMDApCmBgYAoKCgpgYGB7cn0KbGlicmFyeShjZHBhcmNvb3JkKQpkZl9hdXggPSBkZiAlPiUKICBzZWxlY3QoTGVhdmluZy5vcHRpb24ucGVyaW9kLCBMZWF2aW5nLm9wdGlvbi5mb3JtLCBFbnRyYW5jZS5VbkIucGVyaW9kLCBFbnRyYW5jZS5vcHRpb24ucGVyaW9kKQpkZl9hdXggPC0gbWFrZUZhY3RvcihkZl9hdXgsYygnTGVhdmluZy5vcHRpb24ucGVyaW9kJywgJ0VudHJhbmNlLlVuQi5wZXJpb2QnLCAnRW50cmFuY2Uub3B0aW9uLnBlcmlvZCcpKQojZGZfYXV4IDwtIG1ha2VGYWN0b3IoZGZfYXV4LGMoJ0xlYXZpbmcub3B0aW9uLnBlcmlvZCcsJ0VudHJhbmNlLlVuQi5wZXJpb2QnLCdFbnRyYW5jZS5vcHRpb24ucGVyaW9kJykpCiNwZTI1ZGlzYyA8LSBkaXNjcmV0aXplKGRmX2F1eCxubGV2ZWxzPTUpICAKZGlzY3BhcmNvb3JkKGRmX2F1eCxrPTEwMDApCmBgYAoKCgpgYGB7cn0KbGlicmFyeShjZHBhcmNvb3JkKQpkZl9hdXggPSBkZiAlPiUKICBzZWxlY3QoU2Nob29sLnR5cGUsIEVudHJhbmNlLm9wdGlvbi5wZXJpb2QsIFF1b3RhLCBSYWNlKQpkZl9hdXggPC0gbWFrZUZhY3RvcihkZl9hdXgsYygnRW50cmFuY2Uub3B0aW9uLnBlcmlvZCcpKQojcGUyNWRpc2MgPC0gZGlzY3JldGl6ZShkZl9hdXgsbmxldmVscz01KSAgCmRpc2NwYXJjb29yZChkZl9hdXgsaz0xMDAwKQpgYGAKCmBgYHtyfQpsaWJyYXJ5KGNkcGFyY29vcmQpCmRmX2F1eCA9IGRmICU+JQogIHNlbGVjdChFbnRyYW5jZS5vcHRpb24uZm9ybSwgVG90YWwuQ3JlZGl0cywgUGFpZC5pbi5jcmVkaXRzKQojZGZfYXV4IDwtIG1ha2VGYWN0b3IoZGZfYXV4LGMoJ0Nyw6lkaXRvcy5pbnRlZ3JhbGl6YWRvcy5uby50b3RhbCcsICdDcsOpZGl0b3MuY3Vyc2Fkb3Mubm8udG90YWwnKSkKI3BlMjVkaXNjIDwtIGRpc2NyZXRpemUoZGZfYXV4LG5sZXZlbHM9NSkgIApkaXNjcGFyY29vcmQoZGZfYXV4LGs9MTAwMCkKYGBgCgo=